home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / bluebery.arc / EPSONSET.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-29  |  4.6 KB  |  125 lines
  1. 5  CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57
  2. 10  '*****************  PRINTER STYLES AND CONTROL CODES  **********************
  3. 12  'KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE
  4. 14  'OPEN                EPSON/GEMINI 10/15 PRINT CONTROL PRINTOUT                OPEN
  5. 16  'OPEN                                                                         OPEN
  6. 18  'OPEN    This program establishes a series of standard control codes for      OPEN
  7. 20  'OPEN the MX-80 and GEMINI series printers. If the controls are entered in    OPEN
  8. 22  'OPEN your program as a subroutine and read on initializing, they may be      OPEN
  9. 24  'OPEN used for printer control from your program in single or combined form.  OPEN
  10. 26  'OPEN Run this program for an example of the print formats and then check out OPEN
  11. 28  'OPEN the referenced line numbers to see the code make up and 'call code.'    OPEN
  12. 30  'OPEN For an easy merge task, call up PRNTCALL.BAS on this disk.              OPEN
  13. 32  'OPEN    The error routine will take care of printer 'off' or 'off line'. It  OPEN
  14. 34  'OPEN will go to Basic error-handling for 'paper-out' or others.  This pro-   OPEN
  15. 36  'OPEN gram may be used in whole or part without license or attribution.       OPEN
  16. 38  'OPEN                    (c) G I N A C O   1983            Ver 5.1/160/320    OPEN
  17. 40  'SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD
  18. 55  '        *****  < F2 > to RUN  *******  < F10 > For BLUEMENU  *****
  19. 57  ' ====== To avoid DOCUMENTATION BOX each time, REM or DELETE  line 5 ======
  20. 60  CLS
  21. 300   SCREEN 0,0,0
  22. 310    WIDTH 80
  23. 320     CLEAR
  24. 330      FOR I! = 1 TO 10
  25. 340         KEY I!,""
  26. 350        NEXT
  27. 360  GOSUB 900
  28. 370   GOSUB 5000
  29. 380    CLS
  30. 390     LOCATE 6,20
  31. 400      PRINT "TURN PRINTER ON AND SET PAPER FOR PRINTOUT"
  32. 410       LOCATE 8,20
  33. 420        PRINT "THIS WILL PRINTOUT A TEST OF ALL SETTINGS"
  34. 430         LOCATE 10,20
  35. 440          PRINT "YOU CAN THEN CHECK OUTPUT WITH CODES USED"
  36. 450  LOCATE 12,20
  37. 460   PRINT "FOR YOUR OWN PROGRAMMING & PRINTING WORK."
  38. 470    LOCATE 16,28
  39. 480     PRINT "PRESS ANY KEY TO CONTINUE"
  40. 490  IF INKEY$ = "" THEN 490 ELSE 500
  41. 500  GOSUB 900
  42. 510   LPRINT SMALL$;"THIS IS CONDENSED -- LINE 5030"
  43. 520    GOSUB 900
  44. 530     LPRINT UNSMALL$;"THIS IS CONDENSED CLEARED -- LINE 5060"
  45. 540      GOSUB 900
  46. 550       LPRINT EXPAND.SMALL$;"THIS IS CONDENSED EXPANDED  -- LINE 5090"
  47. 560        GOSUB 900
  48. 570         CANX.EXP.COMP$ = CHR$(18) + CHR$(20)
  49. 580  GOSUB 900
  50. 590   LPRINT EXPAND$;"EXPANDED SINGLE LINE  -- LINE 5150"
  51. 600    GOSUB 900
  52. 610     LPRINT EXPAND.END$;"THIS CLEARS EXPANDED -- LINE 5180"
  53. 620      GOSUB 900
  54. 630       LPRINT DARK$;"THIS IS EMPHASIZED PRINT -- LINE 5210"
  55. 640        GOSUB 900
  56. 650  LPRINT ITALIC$;"THIS IS ITALICS MODE -- LINE 5240"
  57. 660   GOSUB 900
  58. 670    LPRINT ITALIC.EXP.CON$;"ITALICS EXPAND CONDENSED -- LINE 5270"
  59. 680     GOSUB 900
  60. 690      LPRINT ITALIC.EXP$;"THIS IS ITALICS EXPANDED -- LINE 5300"
  61. 700       GOSUB 900
  62. 710  LPRINT END.ITALIC$;"THIS CLEARS ALL ITALICS -- LINE 5330"
  63. 720   GOSUB 900
  64. 730    LPRINT START.ULINE$;"THIS STARTS UNDERLINE -- LINE 5360"
  65. 740     GOSUB 900
  66. 750      LPRINT END.ULINE$;"THIS ENDS UNDERLINE -- LINE 5390"
  67. 760       GOSUB 900
  68. 770  LPRINT PERM.EXPAN$;"SETS PERMANENT EXPAND -- LINE 5420"
  69. 780   GOSUB 900
  70. 790    LPRINT END.PERMEXP$;"THIS CLEARS PERMANENT EXPAND -- LINE 5450"
  71. 800     GOSUB 900
  72. 810      LPRINT START.DSTRIKE$;"STARTS DOUBLE STRIKE -- LINE 5480"
  73. 820       GOSUB 900
  74. 830  LPRINT END.DSTRIKE$;"TERMINATES DOUBLE STRIKE -- LINE 5510"
  75. 840   GOSUB 900
  76. 850    LPRINT TINYLINE$;"PRINTS SUBSCRIPT TINYLINE -- LINE 5540"
  77. 860     GOSUB 900
  78. 870      LPRINT END.TINY$;"CLEARS SUBSCRIPT MODE -- LINE 5570"
  79. 880       LLIST 5000 - 5660
  80. 890        END
  81. 900  ON ERROR GOTO 6030
  82. 910  LPRINT CLEANUP$
  83. 920   RETURN
  84. 5000  REM **** PRINTER SUBROUTINES ***
  85. 5030  SMALL$ = CHR$(15)
  86. 5060  UNSMALL$ = CHR$(18)
  87. 5090  EXPAND.SMALL$ = CHR$(14) + CHR$(15)
  88. 5120  CANX.EXP.COMP$ = CHR$(18) + CHR$(20)
  89. 5150  EXPAND$ = CHR$(14)
  90. 5180  EXPAND.END$ = CHR$(20)
  91. 5210  DARK$ = CHR$(27) + CHR$(69)
  92. 5240  ITALIC$ = CHR$(27) + CHR$(52)
  93. 5270  ITALIC.EXP.CON$ = CHR$(14) + CHR$(15) + CHR$(27) + CHR$(52)
  94. 5300  ITALIC.EXP$ = CHR$(27) + CHR$(52) + CHR$(14)
  95. 5330  END.ITALIC$ = CHR$(27) + CHR$(53)
  96. 5360  START.ULINE$ = CHR$(27) + CHR$(45) + CHR$(1)
  97. 5390  END.ULINE$ = CHR$(27) + CHR$(45) + CHR$(0)
  98. 5420  PERM.EXPAN$ = CHR$(27) + CHR$(87) + CHR$(1)
  99. 5450  END.PERMEXP$ = CHR$(27) + CHR$(87) + CHR$(0)
  100. 5480  START.DSTRIKE$ = CHR$(27) + CHR$(71)
  101. 5510  END.DSTRIKE$ = CHR$(27) + CHR$(72)
  102. 5540  TINYLINE$ = CHR$(27) + CHR$(83) + CHR$(0)
  103. 5570  END.TINY$ = CHR$(27) + CHR$(84)
  104. 5600  CLEANUP$ = CHR$(27) + CHR$(64)
  105. 5630  ESC$ = CHR$(27)
  106. 5660  RETURN
  107. 6000  REM ********* PRINTER ERROR ROUTINE ***************
  108. 6030  IF ERR = 24 THEN 6120 ELSE 6060
  109. 6060  IF ERR = 25 THEN 6120 ELSE 6090
  110. 6090  ON ERROR GOTO 0
  111. 6120  KEY OFF
  112. 6150   BEEP
  113. 6180    BEEP
  114. 6210     LOCATE 25,1
  115. 6240      PRINT SPC( 79)
  116. 6270       LOCATE 25,20
  117. 6300        PRINT "CHECK PRINTER - PRESS ANY KEY TO CONTINUE"
  118. 6330  IF INKEY$ = "" THEN 6330
  119. 6360  KEY ON
  120. 6390   RESUME
  121. 6420    LLIST 5000 - 5600
  122. 6450     END
  123. 65000  REM****************** SAVE ROUTINE **************************************
  124. 65100  SAVE "B:EPSONSET.BAS"
  125.